unit uAppCmdLineParams;

interface

uses
  uDZAppUtils;

type
  TAppCmdLineParams = class(TCmdLineParams)
  private
    fLogType: string;
    fRunMode: TProcessExecuteMode;
    fDebugMode: Boolean;
    fPort: Integer;
  published
    property RunMode: TProcessExecuteMode read fRunMode write fRunMode;
    property LogType: string read fLogType write fLogType;
    property DebugMode: Boolean read fDebugMode write fDebugMode;
    property Port: Integer read fPort write fPort; 
  end;

var
  CmdLineParams: TAppCmdLineParams;

implementation

procedure ParseCommandLine();
var
  i: Integer;
begin
  for i := 1 to ParamCount do CmdLineParams.Parse(ParamStr(i));
end;

initialization
  CmdLineParams := TAppCmdLineParams.Create();
  CmdLineParams.RunMode := pemService;
  CmdLineParams.LogType := 'File';
  ParseCommandLine();
  
finalization
  CmdLineParams.Free();  

end.
